library(ggplot2)
library(plotly)
##
## Attaching package: 'plotly'
## The following object is masked from 'package:ggplot2':
##
## last_plot
## The following object is masked from 'package:stats':
##
## filter
## The following object is masked from 'package:graphics':
##
## layout
R Markdown
StudentsPerformance <- read.table ("C:/Users/ronak/Downloads/StudentsPerformance.xls" , sep= ",", header = TRUE)
attach (StudentsPerformance)
plot_ly(StudentsPerformance,x=~math.score,y=~reading.score,z=~writing.score) %>% add_markers(color=~race.ethnicity) %>%
layout (title = '3D Graph for Groupwise Marks',scene = list(xaxis = list(title = 'Math_Score'),
yaxis =list(title = 'Reading_Score'),
zaxis = list(title = 'Writing_Score')))
Including Plots